home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 8 / Revista CD Expert nº 08 CD1.iso / Utilitarios / Especiais / Hotdog 5.5 / hotdog55install.exe / %MAINDIR% / HotDog5.exe / 0 / RCDATA / TFRMANIMATION / TFRMANIMATION.txt
Encoding:
Text File  |  1999-04-29  |  10.2 KB  |  405 lines
  1. object frmAnimation: TfrmAnimation
  2.   Left = 275
  3.   Top = 195
  4.   BorderIcons = [biSystemMenu, biHelp]
  5.   BorderStyle = bsDialog
  6.   Caption = 'Dynamic HTML Animation'
  7.   ClientHeight = 397
  8.   ClientWidth = 485
  9.   Color = clBtnFace
  10.   Font.Charset = ANSI_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'Tahoma'
  14.   Font.Pitch = fpVariable
  15.   Font.Style = []
  16.   OldCreateOrder = True
  17.   Position = poScreenCenter
  18.   Scaled = False
  19.   OnCreate = FormCreate
  20.   OnDestroy = FormDestroy
  21.   OnShow = FormShow
  22.   PixelsPerInch = 96
  23.   TextHeight = 13
  24.   object Bevel2: TBevel
  25.     Left = 0
  26.     Top = 0
  27.     Width = 485
  28.     Height = 362
  29.     Align = alClient
  30.     Style = bsRaised
  31.   end
  32.   object Label1: TLabel
  33.     Left = 130
  34.     Top = 8
  35.     Width = 347
  36.     Height = 43
  37.     AutoSize = False
  38.     Caption = 
  39.       'Using the Dynamic HTML features of the newer Web browsers, you c' +
  40.       'an create some stunning animations.  Here you'#39'll be able to rapi' +
  41.       'dly create some of these animations for yourself.'
  42.     Font.Charset = ANSI_CHARSET
  43.     Font.Color = clWindowText
  44.     Font.Height = -11
  45.     Font.Name = 'Tahoma'
  46.     Font.Pitch = fpVariable
  47.     Font.Style = []
  48.     ParentFont = False
  49.     WordWrap = True
  50.   end
  51.   object Label2: TLabel
  52.     Left = 130
  53.     Top = 150
  54.     Width = 90
  55.     Height = 13
  56.     Hint = 
  57.       'This is the entity which will be animated. It can be a HTML bloc' +
  58.       'k or plain text.'
  59.     Caption = 'Object to animate:'
  60.     Font.Charset = ANSI_CHARSET
  61.     Font.Color = clWindowText
  62.     Font.Height = -11
  63.     Font.Name = 'Tahoma'
  64.     Font.Pitch = fpVariable
  65.     Font.Style = []
  66.     ParentFont = False
  67.     ParentShowHint = False
  68.     ShowHint = True
  69.   end
  70.   object Label3: TLabel
  71.     Left = 130
  72.     Top = 237
  73.     Width = 76
  74.     Height = 13
  75.     Hint = 'Choose the type of entity animation.'
  76.     Caption = 'Animation type:'
  77.     Font.Charset = ANSI_CHARSET
  78.     Font.Color = clWindowText
  79.     Font.Height = -11
  80.     Font.Name = 'Tahoma'
  81.     Font.Pitch = fpVariable
  82.     Font.Style = []
  83.     ParentFont = False
  84.     ParentShowHint = False
  85.     ShowHint = True
  86.   end
  87.   object PaintBox1: TPaintBox
  88.     Left = 9
  89.     Top = 8
  90.     Width = 113
  91.     Height = 209
  92.     OnPaint = PaintBox1Paint
  93.   end
  94.   object Label4: TLabel
  95.     Left = 130
  96.     Top = 107
  97.     Width = 342
  98.     Height = 13
  99.     Hint = 
  100.       'Enter any name here to uniquely identify the entity to be animat' +
  101.       'ed.'
  102.     Caption = 
  103.       'Object Name (must be unique on this page and must start with a l' +
  104.       'etter)'
  105.     Font.Charset = ANSI_CHARSET
  106.     Font.Color = clWindowText
  107.     Font.Height = -11
  108.     Font.Name = 'Tahoma'
  109.     Font.Pitch = fpVariable
  110.     Font.Style = []
  111.     ParentFont = False
  112.     ParentShowHint = False
  113.     ShowHint = True
  114.     WordWrap = True
  115.   end
  116.   object Label5: TLabel
  117.     Left = 130
  118.     Top = 57
  119.     Width = 349
  120.     Height = 42
  121.     AutoSize = False
  122.     Caption = 
  123.       'Note: To change the effect for an existing animated object, sele' +
  124.       'ct the <SPAN ID="xxx">...</SPAN> range of HTML before invoking t' +
  125.       'his dialog.'
  126.     Font.Charset = ANSI_CHARSET
  127.     Font.Color = clWindowText
  128.     Font.Height = -11
  129.     Font.Name = 'Tahoma'
  130.     Font.Pitch = fpVariable
  131.     Font.Style = []
  132.     ParentFont = False
  133.     WordWrap = True
  134.   end
  135.   object groupInteractor: TGroupBox
  136.     Left = 130
  137.     Top = 281
  138.     Width = 349
  139.     Height = 75
  140.     TabOrder = 5
  141.     object Label7: TLabel
  142.       Left = 4
  143.       Top = 13
  144.       Width = 343
  145.       Height = 31
  146.       AutoSize = False
  147.       Caption = 
  148.         'If you wish to create your own Dynamic HTML, then you can use In' +
  149.         'teractor, which is a powerful graphical Dynamic HTML editor.'
  150.       Font.Charset = ANSI_CHARSET
  151.       Font.Color = clWindowText
  152.       Font.Height = -11
  153.       Font.Name = 'Tahoma'
  154.       Font.Pitch = fpVariable
  155.       Font.Style = []
  156.       ParentFont = False
  157.       WordWrap = True
  158.     end
  159.     object buttInteractor: TSpeedButton
  160.       Left = 134
  161.       Top = 48
  162.       Width = 80
  163.       Height = 22
  164.       Hint = 'Use Mbed Interactor'
  165.       Caption = 'Interactor'
  166.       Font.Charset = ANSI_CHARSET
  167.       Font.Color = clWindowText
  168.       Font.Height = -11
  169.       Font.Name = 'Tahoma'
  170.       Font.Pitch = fpVariable
  171.       Font.Style = []
  172.       ParentFont = False
  173.       ParentShowHint = False
  174.       ShowHint = True
  175.       OnClick = buttInteractorClick
  176.     end
  177.   end
  178.   object txtJavascript: TMemo
  179.     Left = 9
  180.     Top = 316
  181.     Width = 40
  182.     Height = 25
  183.     TabStop = False
  184.     Lines.Strings = (
  185.       ''
  186.       '<STYLE TITLE="Animation" TYPE="text/css">'
  187.       '<!--'
  188.       '-->'
  189.       '</STYLE>'
  190.       ''
  191.       '<SCRIPT LANGUAGE="JavaScript1.2">'
  192.       '<!--'
  193.       '  // Scripting added by Sausage Software'#39's HotDog %s'
  194.       '  if (navigator.appName == "Netscape") {'
  195.       #9'refDoc = "document.";'
  196.       #9'refStyle = "";'
  197.       #9'refLeft = ".left";'
  198.       #9'refTop = ".top";'
  199.       '  }'
  200.       '  else {'
  201.       #9'refDoc = "document.all.";'
  202.       #9'refStyle = ".style";'
  203.       #9'refLeft = ".posLeft";'
  204.       #9'refTop = ".posTop";'
  205.       '  }'
  206.       ''
  207.       '  function ssg(s,k) {'
  208.       '    var sl=s.length>>1;'
  209.       '    var kl=k.length;'
  210.       '    var tmp;'
  211.       '    for(ss='#39#39',i=0; i<sl; i++) {'
  212.       '      tmp=i<<1;'
  213.       
  214.         '      ss+=String.fromCharCode(eval("0x"+s.charAt(tmp)+s.charAt(t' +
  215.         'mp+1))^k.charCodeAt(i%kl));'
  216.       '    }'
  217.       '    return ss;'
  218.       '  }'
  219.       ''
  220.       
  221.         '  window.status="Please wait, generating DHTML animation code...' +
  222.         '";'
  223.       '  document.write('#39'<SCRIPT LANGUAGE="JavaScript1.2">'#39');'
  224.       '  document.write(ssg("blah", "HotDog4"));'
  225.       '  document.write('#39'</SCRIPT>'#39');'
  226.       '//-->'
  227.       '</SCRIPT>'
  228.       ''
  229.       '<SCRIPT LANGUAGE="JavaScript">'
  230.       '<!--'
  231.       '  function initAnimation() {'
  232.       '    // Only run DHTML animation if newer browser is being used.'
  233.       '    if (navigator.appVersion.indexOf('#39'4'#39') != -1){'
  234.       '      // %HOTDOG_ANIM_BEGIN% - DO NOT REMOVE OR EDIT THIS LINE !'
  235.       '      // %HOTDOG_ANIM_END% - DO NOT REMOVE OR EDIT THIS LINE !'
  236.       '    }'
  237.       '  }'
  238.       '//-->'
  239.       '</SCRIPT>')
  240.     TabOrder = 4
  241.     Visible = False
  242.     WordWrap = False
  243.   end
  244.   object cmbAnimType: TComboBox
  245.     Left = 130
  246.     Top = 251
  247.     Width = 347
  248.     Height = 21
  249.     HelpContext = 162
  250.     Style = csDropDownList
  251.     Font.Charset = ANSI_CHARSET
  252.     Font.Color = clWindowText
  253.     Font.Height = -11
  254.     Font.Name = 'Tahoma'
  255.     Font.Pitch = fpVariable
  256.     Font.Style = []
  257.     ItemHeight = 13
  258.     ParentFont = False
  259.     Sorted = True
  260.     TabOrder = 2
  261.   end
  262.   object txtHTML: TMemo
  263.     Left = 56
  264.     Top = 316
  265.     Width = 41
  266.     Height = 25
  267.     TabStop = False
  268.     Lines.Strings = (
  269.       
  270.         '<p dynamicanimation="flyBottom" style="position: relative !impor' +
  271.         'tant; left: 10000 !important">'
  272.       
  273.         '<p dynamicanimation="flyTop" style="position: relative !importan' +
  274.         't; left: 10000 !important">'
  275.       
  276.         '<p dynamicanimation="flyLeft" style="position: relative !importa' +
  277.         'nt; left: 10000 !important">'
  278.       
  279.         '<p dynamicanimation="flyRight" style="position: relative !import' +
  280.         'ant; left: 10000 !important">'
  281.       
  282.         '<p dynamicanimation="flyBottomLeft" style="position: relative !i' +
  283.         'mportant; left: 10000 !important">'
  284.       
  285.         '<p dynamicanimation="flyBottomRight" style="position: relative !' +
  286.         'important; left: 10000 !important">'
  287.       
  288.         '<p dynamicanimation="flyTopLeft" style="position: relative !impo' +
  289.         'rtant; left: 10000 !important">'
  290.       
  291.         '<p dynamicanimation="flyTopRight" style="position: relative !imp' +
  292.         'ortant; left: 10000 !important">'
  293.       
  294.         '<p dynamicanimation="flyTopRightWord" style="position: relative ' +
  295.         '!important; left: 10000 !important">'
  296.       
  297.         '<p dynamicanimation="flyBottomRightWord" style="position: relati' +
  298.         've !important; left: 10000 !important">'
  299.       
  300.         '<p dynamicanimation="dropWord" style="position: relative !import' +
  301.         'ant; left: 10000 !important">'
  302.       
  303.         '<p dynamicanimation="spiral" style="position: relative !importan' +
  304.         't; left: 10000 !important">'
  305.       
  306.         '<p dynamicanimation="zoomIn" style="position: relative !importan' +
  307.         't; left: 10000 !important">'
  308.       
  309.         '<p dynamicanimation="zoomOut" style="position: relative !importa' +
  310.         'nt; left: 10000 !important">')
  311.     TabOrder = 3
  312.     Visible = False
  313.     WordWrap = False
  314.   end
  315.   object txtSelText: TMemo
  316.     Left = 130
  317.     Top = 166
  318.     Width = 347
  319.     Height = 65
  320.     HelpContext = 161
  321.     Font.Charset = ANSI_CHARSET
  322.     Font.Color = clWindowText
  323.     Font.Height = -11
  324.     Font.Name = 'Tahoma'
  325.     Font.Pitch = fpVariable
  326.     Font.Style = []
  327.     ParentFont = False
  328.     TabOrder = 1
  329.   end
  330.   object txtEntityName: TEdit
  331.     Left = 130
  332.     Top = 121
  333.     Width = 347
  334.     Height = 21
  335.     HelpContext = 160
  336.     Font.Charset = ANSI_CHARSET
  337.     Font.Color = clWindowText
  338.     Font.Height = -11
  339.     Font.Name = 'Tahoma'
  340.     Font.Pitch = fpVariable
  341.     Font.Style = []
  342.     MaxLength = 16
  343.     ParentFont = False
  344.     TabOrder = 0
  345.   end
  346.   object pnlBase: TPanel
  347.     Left = 0
  348.     Top = 362
  349.     Width = 485
  350.     Height = 35
  351.     Align = alBottom
  352.     TabOrder = 6
  353.     object btnHelp: TButton
  354.       Left = 5
  355.       Top = 6
  356.       Width = 75
  357.       Height = 25
  358.       Caption = '&Help'
  359.       Font.Charset = ANSI_CHARSET
  360.       Font.Color = clWindowText
  361.       Font.Height = -11
  362.       Font.Name = 'Tahoma'
  363.       Font.Pitch = fpVariable
  364.       Font.Style = []
  365.       ParentFont = False
  366.       TabOrder = 0
  367.       OnClick = btnHelpClick
  368.     end
  369.     object btnOK: TButton
  370.       Left = 324
  371.       Top = 6
  372.       Width = 75
  373.       Height = 25
  374.       Caption = '&OK'
  375.       Default = True
  376.       Font.Charset = ANSI_CHARSET
  377.       Font.Color = clWindowText
  378.       Font.Height = -11
  379.       Font.Name = 'Tahoma'
  380.       Font.Pitch = fpVariable
  381.       Font.Style = []
  382.       ParentFont = False
  383.       TabOrder = 1
  384.       OnClick = btnOKClick
  385.     end
  386.     object btnCancel: TButton
  387.       Left = 404
  388.       Top = 6
  389.       Width = 75
  390.       Height = 25
  391.       Cancel = True
  392.       Caption = '&Cancel'
  393.       Font.Charset = ANSI_CHARSET
  394.       Font.Color = clWindowText
  395.       Font.Height = -11
  396.       Font.Name = 'Tahoma'
  397.       Font.Pitch = fpVariable
  398.       Font.Style = []
  399.       ParentFont = False
  400.       TabOrder = 2
  401.       OnClick = btnCancelClick
  402.     end
  403.   end
  404. end
  405.